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The 10. January letter of Mr. Ammann promised a description 
of the simple stack computer and its assembly language, as 
well as a Pascal-written interpreter. The following note is 
directed to this point. 

The computer consists of a program, tables of constants, the 
store (for variables) , and regist ers . The registers are the 
program counter (PC), the instru ction register (OP, P, Q) , 
and three ad dress reg isters (SP, MP, IMP). The store is 
divided into a stack . growing from one end, and an area of 
dynamically allocated variables growing from the other end. 
SP points to the top of the stack, NP points to the top (or 
bottom) of the area. 
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The stack consists of a series of data segments . Each segment 
is a block of information headed by a four-word unit called 
a mark . The first word is used to store the result, for the 
case where the segment belongs to a function. The instruction 

"mark stack" (MST) reserves these 
words by incrementing the stack pointer 
while recording the static and d^yoamix 
-links « A "call user procedure" (CUP) 
immediately follows. This instruction 
sets MP , the base address, to the 
beginning of the block and records the 
r e t u r n a d d r e s s. . MP therefore is always 

the base address of the youngest data 
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segment. "Enter" (ENT) then increments the stack pointer, 
thereby reserving stack space representing the local variables 
and initializing them to the value "undefined". Every procedure 
or function, including the main program, is entered in this 
manner. "Return" (RET) resets the pointers thus "popping" 
the segment. 

To provide dynamic allocation for variables generated by the 
standard procedure n_ew» the interpreter allocates storage at 
the location designated by NP and yields NP as the address 
of the new variable. In the case where the new variable is a 
record specifying a tag field, new (p,t), an assignment is 
made to the tag field. The standard procedure _reg6t. then 
allows a release of this area. 



The compiler generated instructions have no label field. 
Instead, a simple counter is used which is incremented by one 
with each new generation. The jump instructions then use this 
count as the referenced address. 

An instruction, beginning in collumn one and ending with an 
eol . is a three~letter mnemonic followed by one or two 
parameters. The first parameter of the compare instructions 
(EQU, NEQ, GEQ, GRT, LEQ, LES), load constant (LDC), and 
return (RET) is a "type key" and appears in position four. 
Compare instructions use the code: 

A for address comparison 

I integer 

R real 

B Boolean 

5 set 

M multiple (e.g. an array) 

A multiple comparison is followed by a second parameter which 
indicates the number of elements to be compared. The key of 
LDC signals the type of the constant appearing as the next 
parameter: 

I implies integer 

R real 

C character 

( set 

N the nil pointer 

B Boolean (0,1 ) 

Where the constant is of type set, the immediately following 
character is either an I or a C to distinguish an integer from 
a character set. The set is then terminated by a ' ) ' • 



RET is followed by a F or P to dif f erenciate betv^een a 
function or procedure return. 

Following C5P (call standard procedure) is a three-letter 
mnemonic, beginning in position five and referencing a 
Pascal standard procedure. A LDA (load constant address) is 
followed by a string constant. In position five is an 
apostrophe marking the beginning of a string which is then 
terminated by a second apostrophe. The other instructions 
have either integer parameters which can be written in free 
format, or no parameters. 



The assembler reads the symbolic code and translates it into 
an internal representation, (The packing of two instructions 
into one component of the array CODE is due to the large 
wordsize of our CDC computer, and is of no further importance*) 
It was necessary to generate a "load constant indirect" for 
those values that do not fit into the Q~field. 

For bootstrapping purposes, it is necessary to translate the 
given assembler-interpreter into any available language. One 
then has a means, admittedly slow, of executing a program of 
Pascal symbolic code. In particular, one can then execute 
the symbolic code of the new Pascal compiler which, in turn, 
is capable of compiling a Pascal program, namely that of a 
new Pascal compiler modified to generate the target computer *8 
machine-code. 

V/e include a listing of the Assembler-Interpreter, Input to 
this program was the hand generated symbolic code for the 
following program: 

var a,b: integer; 
begin a := 0; b ;= 1; 

write ( a-fb ) ; 

repeat a := sqr(b) + bj 
b s= a div b 

until a > 20; 

write(a , b,a+b, eol) 
end . 

All test output is ^own. We hasten to add that this is an 
early result and offer no claim of its total correctness. 
However, we do invite your comments and questions. 



Yours sincerely, 

1 

Kathleen Jensen, Assistant 



Symbolic Instructions of PASCAL-CODE 
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Each instruction is packed into a 30-.bit .field. The op-^code occupies, 
a 6-bit field, parameter P a 4-bit field, and parameter Q a 20-bit 
(address) field. 

Alphabetic List of InstructionR : 



code 



40 
41 
28 
29 
43 
26 
15 
12 
57 
45 
53 
54 
13 
27 
17 
24 
34 
33 
19 
20 
10 
9 
48 
46 
44 
16 



mnemonic 



ABI 

ABR 

ADI 

ADR 

AND 

CHK 

C5P 

CUP 

DEC 

DIP 

DVI 

DVR 

ENT 

EOF 

EQU 

FJP 

FLO 

FLT 

GEQ 

GRT 

INC 

IND 

INN 

INT 

lOR 

IXA 



parameters 
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description 



absolute value of integer 

absolute value of real number 

integer addition 

real addition 

Boolean "and" 

check against upper and lower bounds 

call standard procedure 

call user procedure 

decrement address 

set difference 

integer division 

real division 

enter block 

test on end of file 

compare on equal 

false jump 

float next to the top 

float top of the stack 

greater or equal 

greater than 

increment address 

indexed fetch 

test set membership (in) 

set intersection 

Boolean "inclusive or" 

compute indexed address 
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code 



mnemonic 



5 

56 

4 

7 

1 

21 

22 



49 

55 

51 

52 

11 

18 

36 

37 

42 

50 

14 

30 

31 

32 

38 

39 

3 

6 

58 

2 

35 

23 

47 

25 

8 



LAG 
LCA 
LDA 
LDC 
LDD 
LEQ 
LE5 
LOD 
MOD 
MOV 
MPI 
MPR 
MST 
NEQ 
NGI 
NGR 
NOT 
ODD 
RET 
SBI 
SBR 
SG5 
.SQI 
5QR 
SRO 
STO 
5TP 
STR 
TRC 
UJP 
UNI 
XJP 



parameters 
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description 



load base-level address 

load address of constant 

load address 

load constant 

load contents of base-level address 

less than or equal 

less than 

load contents of address 

modulus 

move 

integer multiplication 

real multiplication 

mark stack 

not equal 

integer sign inversion 

real sign inversion 

Boolean "not" 

test on odd 

return from block 

integer subtraction 

real subtraction 

generate singleton set 

square integer 

square real 

store 

store at base-level' address 

stop 

store at address 

truncation 

unconditional jump 

set union 

indexed jump 

load constant indirect, an assembler- 
generated instruction 



